home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Light ROM 1
/
LIGHT-ROM 1 (Amiga Library Services)(1994).iso
/
ffdisks
/
d963.lha
/
SIOD
/
scm
/
tree-tail.scm
< prev
next >
Wrap
Text File
|
1999-12-31
|
578b
|
13 lines
(define (pre-order tree)
(define (preorder-it tree pila out)
(if (and (empty-tree? tree)(empty-pila? pila))
out
(if (empty-tree? tree)
(preorder-it (top pila)
(pop pila)
out)
(preorder-it (left-branch tree)
(push (right-branch tree) pila)
(append out (list (entry tree)))))))
(preorder-it tree make-pila '()))